-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2152
-- card count: 1
-- first card id: 3103
-- list block id: 2946
-- print block id: 51
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 17920 bytes
-- stack block size: 8192 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- Copyright 1987 Apple Computer, Inc.

on idle
  if the short time ≠ field "loc time"
  then put the short time into field "loc time"
  pass idle
end idle

on openStack
  show message box
end openStack

on dial string
  global dialNumber
  put string into dialNumber
  stripNonDials
  if dialNumber is empty then exit dial
  put the length of dialNumber into dialLength

  if dialLength < 7 then
    doDial bkgnd field preamble & dialNumber

  else if dialLength = 7 then
    put char 1 to 3 of dialNumber into prefix
    repeat with index = 1 to number of words in field "Local Prefixes"
      if word index of field "Local Prefixes" is prefix then
        doDial field preamble & dialNumber
        exit dial
      end if
    end repeat
    answer "Is this a local (non-toll) call?" with No or Yes
    if it is "Yes" then
      put prefix & space after field "Local Prefixes"
      doDial field preamble & dialNumber
    else doDial field preamble & field "toll prefix" & dialNumber

  else if dialLength = 8 then
    if offset(field "toll prefix", dialNumber) is 1 then
      doDial field preamble & dialNumber
    else put "This doesn't look like a valid number."

  else if dialLength ≥ 9 then dialLD
end dial

on dialLD
  global dialNumber
  if offset(field "long dist preamble", dialNumber) is 1 then
    repeat for the length of field "long dist preamble"
      delete char 1 of dialNumber
    end repeat
  end if
  if offset(field "area code", dialNumber) is 1 then
    repeat for the length of field "area code"
      delete char 1 of dialNumber
    end repeat
    dial dialNumber
    exit dialLD
  end if
  Dodial field preamble & field "long dist preamble" & dialNumber
end dialLD

on doDial dialNumber
  put "Now dialing: " & dialNumber

  if hilite of bkgnd button "modem (tone dialing)"
  then send "dial" && quote & dialNumber & quote && "with modem" && quote & "ATS0=0DT" & quote to HyperCard

  if hilite of bkgnd button "modem (pulse dialing)"
  then send "dial" && quote & dialNumber & quote && "with modem" && quote & "ATS0=0DP" & quote to HyperCard

  if hilite of bkgnd button "speaker (tone dialing)"
  then send "dial" && quote & dialNumber & quote to HyperCard

  put empty

end doDial

on stripNonDials
  global dialNumber
  repeat with index = the length of dialNumber down to 1
    if char index of dialNumber is not in "0123456789ABCD#*"
    then delete char index of dialNumber
  end repeat
end stripNonDials